(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     33560,        602]
NotebookOptionsPosition[     32139,        554]
NotebookOutlinePosition[     32483,        569]
CellTagsIndexPosition[     32440,        566]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Icontroller", "Section",
 PageWidth->WindowWidth],

Cell[CellGroupData[{

Cell["Component description", "Subsection",
 PageWidth->WindowWidth],

Cell["\<\
This is an imaginary analog componenent that represents a PWM current \
controller. It acts like a resistor but the losses cen be made to zero by \
reducing the out-curren (node 2) compared to the in-currernt (node 1).\
\>", "Text",
 PageWidth->WindowWidth],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@00045X0@0006`0000Z0P00P000004F000e3`00
g0T00586002WG000fcl00215CDH00040J4400002000300000000000000000000XQ800:PJ003:0000
8@400000000000000000010E0`3XJ0@0AP0002`0000P0000ADe6:`500@0L00004000008@`=/00000
F08005P200160000G00005000015CDH[8T0400`0000000007T0900`000000000940100`000000000
<4020100000400000020?b501`0<0000000000A0000<0000000004H0000X0000700004M4BD<20000
D`8007h1003I5@003@l0000000160000:00001`00017A4U30P0008<2001>1@00NaD00:8500000000
AP000:P0002L0000ADe6:bY0000T000060000000P3l000200000P000P3l000200000P0Q0008h0000
;000008@`=/00000V0000000002[ZZI20P000000044000000Q30f`000000003o24010b`0000P0000
0Q30f`8000000000ZeX[A000[dAFRZY5002_A0010H4E@040400000@0000000008@0000P0001R0000
30000040000T000090000000P3h0000000000000P3h0000000000080001O0000>0000040000h0000
000003P000000000008104d1000000000000000000000000000002D0000<00000@0002D0000<0000
1@00P5L0000T0000PP8004`5001l5@00X`D00080002d2]hEA5GN5BD0000<00001`00P2D0000<0000
0000P2@0000T00000020@000000000000020@000000000000P0002P0000<00000@000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000W`<007T:003c0`00l@d0000000160000Z00009`00015CDH[:T0002@0000H0000
0020?`00080000200020?`000800002024020SP0000/00000Q30f`00002H000000000:^ZYT820000
0000@@0000024<3K000000000?l8@0<3;000020000024<3K0P0000000000<794ZbhZA@0`LTAFLEa5
0041PAE00`0@000010000080000Q000020000680000<00000@0002@0000T00000000?P0000000000
0000?P00000000000P0005l0000h00000@0003P000000000>000000000000P40V`80000000000000
00000000000000009@0000`0000100009@0000`000050020E`0002@0002M0`00M`X00?<3003b3@00
0P00048N55E27SE^9@0000`0000700209@0000`000000020900002@0000000110000000000000011
0000000000020000:00000`0000100008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000
000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80001_0`00NPX002T6003>2P00
000004H0002X0000W00004E=AR/Z@000900001P00000080o0000P0000800080o0000P0000808@0@2
>00002`000024<3K000009P000000000ZjZV@P80000000110000008@`=/000000000o`Q01@</0000
8000008@`=/20000000005DeITAE?bY50<boA5Do:TD00@615D050100000400001000024000080000
HP0000`000010000900002@00000000n000000000000000n0000000000020000G`0003P000010000
>0000000000h0000000000020@2K0P00000000000000000000000000000U000030000040000U0000
300000D0081G0000900006d3001h2P00:@H00<l:00020000`a`LENl_75DU0000300000L0080U0000
30000000080T00009000000004400000000000000440000000000080000X000030000040000R0000
30000?oooom60000700001000015CDH[140000`000000000AP0001@000080000AdA9@`<000160000
:00001`00017A4U30P0005<2002M3@00?@D00?4=00000000AP000:P0002L0000ADe6:bY0000T0000
60000000P3l000200000P000P3l000200000P0Q01P8h0000;000008@`=/00000V0000000002[ZZI2
0P000000044000000Q30f`000000003o24070b`0000P00000Q30f`8000000000060OA5EaG4F[GZ94
EG5LA@010H4E@0L0400000@0000600008@0000P0001R000030000040000T00009000000003h00000
0000000003h0000000000080001O0000>0000040000h0000000003P000000000008109/200000000
0000000000000000000002D0000<00000@0002D0000<00001@00P5L0000T0000DP8009/=000n1@00
lPd00080003X4cE^U2PeKRD0000<00001`00P2D0000<00000000P2@0000T00000000@@0000000000
0000@@00000000000P0002P0000<00000@000280000<0000ooooodH0000L0000400004E=AR/4@000
3000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000/P8002/>003N1000
O`h0000000160000Z00009`00015CDH[:T0002@0000H00000020?`00080000200020?`0008000020
24080SP0000/00000Q30f`00002H000000000:^ZYT8200000000@@0000024<3K000000000?l8@0T3
;000020000024<3K0P000000002[4SM404aUAEJ5UT@0C6E50041PAE02@0@0000100000P0000Q0000
20000680000<00000@0002@0000T00000000?P00000000000000?P00000000000P0005l0000h0000
0@0003P000000000>000000000000P40V`8000000000000000000000000000009@0000`000010000
9@0000`000050020E`0002@0002a0P00:@h00=l4001o3P000P000=lFXW:N9J9b9@0000`000070020
9@0000`000000020900002@00000001100000000000000110000000000020000:00000`000010000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`80000@0`00^0h00844000=3`00000004H0002X0000W00004E=AR/Z@000
900001P00000080o0000P0000800080o0000P0000808@0X2>00002`000024<3K000009P000000000
ZjZV@P80000000110000008@`=/000000000o`Q02`</00008000008@`=/2000000000:^2CTB[9Vi5
E/f:A:/VKTD00@615D0;0100000400002P00024000080000HP0000`000010000900002@00000000n
000000000000000n0000000000020000G`0003P000010000>0000000000h0000000000020@2K0P00
000000000000000000000000000U000030000040000U0000300000D0081G0000900000h3002g3P00
P@@000d?00020000cAT@Mk0R47LU0000300000L0080U000030000000080T00009000000004400000
000000000440000000000080000X000030000040000R000030000?oooom60000700001000015CDH[
140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U30P0003/D001h2P00
Sa@00?0=00000000AP000:P0002L0000ADe6:bY0000T000060000000P3l000200000P000P3l00020
0000P0Q0308h0000;000008@`=/00000V0000000002[ZZI20P000000044000000Q30f`000000003o
240=0b`0000P00000Q30f`8000000000ZbJSA@0N:TF[9Z=5Zf1LA@010`<E@0d0400000@0000<0000
8@0000P0001R000030000040000T000090000000P3h0000000000000P3h0000000000080001O0000
>0000040000h0000000003P000000000008104d1000000000000000000000000000002D0000<0000
0@0002D0000<00001@00P5L0000T0000>A@007H:002@5000l@d00080002BDHHZTU4G=bD0000<0000
1`00P2D0000<00000000P2@0000T00000020@000000000000020@000000000000P0002P0000<0000
0@000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U3
0`0004H0000X0000700004M4BD<20000ka8009`=003I5@00l0d0000000160000Z00009`00015CDH[
:T0002@0000H00000020?`00080000200020?`0008000020240>0SP0000/00000Q30f`00002H0000
00000:^ZYT8200000000@@0000024<3K000000000?l8@0l3;000020000024<3K0P000000002[c9Q5
Zf1LAEIh[DF[H5a50041PAE03`0@0000100000h0000Q000020000680000<00000@0002@0000T0000
0020?P00000000000020?P00000000000P0005l0000h00000@0003P000000000>000000000000P40
C@4000000000000000000000000000009@0000`0000100009@0000`000050020E`0002@0003^4P00
V`d00=XE003a3@000P0006E<5cNkEQLg9@0000`0000700209@0000`000000020900002@000000810
00000000000008100000000000020000:00000`0000100008P0000`0003oooooAP0001`0000@0000
ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80001>4`00
:Ph007XE001n3P00000004H0002X0000W00004E=AR/Z@000900001P00000080o0000P0000800080o
0000P0000808@102>00002`000024<3K000009P000000000ZjZV@P80000000110000008@`=/00000
0000o`Q04@</00008000008@`=/2000000000033VdEE>fE508:ZAEDkIDD00@615D0A010000040000
4000024000080000HP0000`000010000900002@00000080n000000000000080n0000000000020000
G`0003P000010000>0000000000h0000000000020@1=0@00000000000000000000000000000U0000
30000040000U0000300000D0081G0000900004dC000X3P00NaD007h>00020000h4e=>CmECCTU0000
300000L0080U000030000000080T000090000000P400000000000000P400000000000080000X0000
30000040000R000030000?oooom60000700001000015CDH[140000`000000000AP0001@000080000
AdA9@`<000160000:00001`00017A4U30P000:`C002g3P007AD000`?00000000AP000:P0002L0000
ADe6:bY0000T000060000000P3l000200000P000P3l000200000P0Q04P8h0000;000008@`=/00000
V0000000002[ZZI20P000000044000000Q30f`000000003o240C0b`0000P00000Q30f`8000000000
0;6NA@0FKTD0U:M501I^A@010H4E@1<0400000@0000B00008@0000P0001R000030000040000T0000
90000000P3h0000000000000P3h0000000000080001O0000>0000040000h0000000003P000000000
008104d1000000000000000000000000000002D0000<00000@0002D0000<00001@00P5L0000T0000
Za<00;H>000M5@0030l00080001GCh@kb5>4>bD0000<00001`00P2D0000<00000000P2@0000T0000
0020@000000000000020@000000000000P0002P0000<00000@000280000<0000ooooodH0000L0000
400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000
118007P:002n5000c0X0000000160000Z00009`00015CDH[:T0002@0000H00000020?`0008000020
0020?`0008000020240D0SP0000/00000Q30f`00002H000000000:^ZYT8200000000@@0000024<3K
000000000?l8@1D3;000020000024<3K0P000000001ELI5501hZAJZMY4D07RY50041PAE05@0@0000
100001@0000Q000020000680000<00000@0002@0000T00000020?P00000000000020?P0000000000
0P0005l0000h00000@0003P000000000>000000000000P40C@400000000000000000000000000000
9@0000`0000100009@0000`000050020E`0002@000034P00MPX00;hD003=2P000P000;M8QRY=DXHZ
9@0000`0000700209@0000`000000020900002@00000081000000000000008100000000000020000
:00000`0000100008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000
200004M4BD<30000AP0002P0000L0000AdA9@`80003E1@00e`@005PB002d2`00000004H0001H0000
C00004E=AR/Z@000900001P00000080o0000P0000800080o0000P000080:@020900001P0003ooooo
0@0005G]_d@0::14oN]2AE@MdD@Q000020000680000<00000@0002@0000T00000020?P0000000000
0020?P00000000000P0002L0000H00000@000000003oool0000002D0000<00000@0002D0000<0000
2000P5H0000`0000o`D00005000^4P00RP/000D0003l5`<Do1LW;[M89bjgB0<Do1L352D0000<0000
1`00P2D0000<00000000P2@0000T00000020@000000000000020@000000000000P0004H0002L0000
T00004E=AR/8@1H2@00003@000024<3K00000=H000000000ZjZV@P80000200000000@@8000000000
0Q30f`000000003o240G0c`0000`00000Q30f`@000000000ENfoA00XX4AEkKm4ZZ8hAEEaTDFZXSQ5
EG6AA@0XX4@00@615D0G0100000400005P0003X0000<0000200002@0000T00000020?P0000000000
0020?P00000000000P0005l0000h00000P0003P000000000>000000000008040C@40000000000000
00000000000000009@0000`0000200009@0000`000050020EP0002`0002Z1000Z`<008<C003O3000
10000?`G0aCl5bL^]dPW;[M80a@U0000300000L0080U000030000000080T000090000000P4000000
00000000P400000000000080000X000030000080000j0000300000X0000R000030000?oooom60000
700001000015CDH[140000`000000000AP0001@000080000AdA9@`<0001B0000L0400080002XoOoo
0000000000000000T04000000000@000@@1b06T0H@1/0000000000000001000000000=T;00000000
00000000000T=]<`@;Po00800001000010000000000000000000090100000000P<Po01ABiS0X]cl0
4;do02Bh4`010000_</o0080001/^1<0ge;V<000002lbcl0P<Do0000001L2o4`30000;;oool;0000
P<Do0000000NZ^H``0000:3D?`02000000000000000;00000000053:?`1n4?4`0P000?oooomH?P@`
06=E<67D0C0<_Q<000000>2`?`134`X`2@Po00T8?`2I4`X`LP000000?`0;0000P<Do0000002/^1<0
P<Do02P0000;0000/_ooojd?lC20aCl02`0000Ri4`3h^1<0H0/000Rk?`1TMP08000002D0000<0000
0P0001H0000<000060000180000<00000@0001P0000<000000000U@0001D0000IPH00785000<1`00
3`P00040001mPhM0SHF7@6H6002A1`000@0004`00000000000000000003ooooooooooe00001903am
Y`0001H0000<0000000002D0000<00003P00P2P0000<00000P000580001`0@000P000:Smool00000
00000000002@0@000000001000110780J@1Q06`0000000000000004000000000f@/0000000000000
000002@fdc10^3l00P00004000040000000o0000001L2o4`30000;;oool;0000P<Do0000000NZ^H`
`0000:3D?`020000000002bh4`000000b0FAO?2Dk@[h^1<0D@FAO4P75@1]1I5lTB0:eoRDk@[hU>d:
00000>2`?`134`X`2@Po00T8?`2I4`X`LP000000?`000000P<Do0000002/^1<0P<Do05Pn1300HeD`
HM@1<0bn4`000000P;4o00Ri4`0P0000H0/000Rk?`1TMP08000000/00020aCl000000:bh4`3H^1<0
000E09Q4mPXU0000614R00002P0H4B80k;P100@0000l^1<0cR@Q8VAf00P000009@0000`000020000
5P0000`0000H00004P0000`000010000600000`000000002E00005@0000=1`00LPD00=@7000?2000
0@0007f3Qd2=QHM03@L0094700010000C00000000000000000000?ooooooooooD00002d0De780000
5P0000`0000000009@0000`0000>0020:00000`000020000DP00070100020000Z?goo`0000000000
000009010000000004000440LP1Y0640K0000000000000000@000000003I2`000000000000000000
93KC<42h?`0200000@0000@0000001<0D@FAO4P75@1]1I5lTB0:eoRDk@[hU>d:00000>2`?`134`X`
2@Po00T8?`2I4`X`;;PC000000381I5ll9C]2_Rh4`1A1I5lB0LE06d5TGbA80[Hn9C]2_RDk@X00000
P;4o00Ri4`0P0000H0/000Rk?`1TMP08000000000020aCl000000:bh4`3H^1<0F3h4<01SEC1Qe04`
3;hC0000000P/Sl0k;P10200000l^1<0cR@Q8VAf00P000002`000835?`000000[;PC0=Rh4`0001D0
/4Kf2RD0000H4B80000:01PA8P3/^040100003bh4`3>924RI7H02000000U000030000080000F0000
300001P0000B000030000040000H000030000000009D0000R0000=D7001b1@00OA4000l800010000
OH>7@8f5Qd3E1`00T@L000X0001<00000000000000000000oooooooooomP0000H`1_06h0M01b06l0
K01/06D0LP0/0@00C@4004h1002W0000a`0004h100250000Q@0004d1003800005P0000`000000000
9@0000`0000>0020:00000`000020000AP0002P0000L0000AdA9@`80000Q2`00OP4004l<00041@00
000004H0000D0@00204004E=AR/Z@000900001P00000080o0000P0000800080o0000P0000808@1P2
Y00009P000024<3K000009`@000000000018@_l0000200000000@@00001T00000Q30f`0000010000
0P000000T400000000000000000002110020?`000000000000000000000X00000Q30f`<000008000
000P@000X<000000000000008<000:300061]@8@`=/000000000o`Q06@</00008000008@`=/20000
00000020>dEEYL]3080kAEDYWD@00@615D0I010000040000600002P0000<00000@00024000080000
HP0000`000010000900002@00000000n000000000000000n0000000000020000G`0003P000010000
>0000000000h00000000000B0@080000000000000000000000000000000U000030000040000W0000
600000800000000000000000000U000030000080000C000030000080001K0000C00003T;002E0@00
=P`00>/4000200002@0000D000040000Q5jg38AN?b3dG3lPm5bg38AN]`bTHGLO_5e79mAIManTHGLO
4`0000`0000100009@0000`0000000209@0000`000070020900002@0000000110000000000000011
0000000000020000:00000`0000100008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000
000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`8000230P00CPD007/E002R1@00
000004H000140000>00004E=AR/Z@000900001P00000080o0000P0000800080o0000P000080E@040
400000@0000000008@0000P0001R000030000040000T000090000000P3h0000000000000P3h00000
00000080001O0000>0000040000h0000000003P000000000008104d1000000000000000000000000
000002D0000<00000@0002D0000<00001@00P5L0000T0000PP8004`5001l5@00X`D00080002d2]hE
A5GN5BD0000<00001`00P2D0000<00000000P2@0000T00000020@000000000000020@00000000000
0P0002P0000<00000@000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000
500000P00017A4U30`0004H0000X0000700004M4BD<20000W`<007T:003c0`00l@d0000000160000
A00003P00015CDH[:T0002@0000H00000020?`00080000200020?`00080000205D03010000040000
0P00024000080000HP0000`000010000900002@00000000n000000000000000n0000000000020000
G`0003P000010000>0000000000h0000000000020@2K0P00000000000000000000000000000U0000
30000040000U0000300000D0081G0000900009d3001g2P00l`<00?8=00020000@QhDED8N=FhU0000
300000L0080U000030000000080T00009000000004400000000000000440000000000080000X0000
30000040000R000030000?oooom60000700001000015CDH[140000`000000000AP0001@000080000
AdA9@`<000160000:00001`00017A4U30P0006l3001j2P00:@H00<h:00000000AP0004@0000h0000
ADe6:bY0000T000060000000P3l000200000P000P3l000200000P1E01@0@0000100000@0000Q0000
20000680000<00000@0002@0000T00000000?P00000000000000?P00000000000P0005l0000h0000
0@0003P000000000>000000000000P40V`8000000000000000000000000000009@0000`000010000
9@0000`000050020E`0002@0001]0`00N0X002T6003?2P000P000<<L75G_;aaE9@0000`000070020
9@0000`000000020900002@00000001100000000000000110000000000020000:00000`000010000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`80001C0P00W@d003d5003a3@00000004H000140000>00004E=AR/Z@000
900001P00000080o0000P0000800080o0000P000080E@0L0400000@0000600008@0000P0001R0000
30000040000T00009000000003h000000000000003h0000000000080001O0000>0000040000h0000
000003P000000000008109/2000000000000000000000000000002D0000<00000@0002D0000<0000
1@00P5L0000T0000DP8009/=000n1@00lPd00080003X4cE^U2PeKRD0000<00001`00P2D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<00000@000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000/P8002/>003N1000O`h0000000160000A00003P00015CDH[:T0002@0000H0000
0020?`00080000200020?`00080000205D090100000400002000024000080000HP0000`000010000
900002@00000000n000000000000000n0000000000020000G`0003P000010000>0000000000h0000
000000020@2K0P00000000000000000000000000000U000030000040000U0000300000D0081G0000
90000;42000Y3P00g`@007l>00020000gaJRLYhUXW8U0000300000L0080U000030000000080T0000
9000000004400000000000000440000000000080000X000030000040000R000030000?oooom60000
700001000015CDH[140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U3
0P000103002h3P00P@@000d?00000000AP0004@0000h0000ADe6:bY0000T000060000000P3l00020
0000P000P3l000200000P1E02`0@0000100000X0000Q000020000680000<00000@0002@0000T0000
0000?P00000000000000?P00000000000P0005l0000h00000@0003P000000000>000000000000P40
V`8000000000000000000000000000009@0000`0000100009@0000`000050020E`0002@0000>0`00
]`h00844000=3`000P000<dI47N`8Q1g9@0000`0000700209@0000`000000020900002@000000011
00000000000000110000000000020000:00000`0000100008P0000`0003oooooAP0001`0000@0000
ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80000k5000
N0X008lD003`3@00000004H000140000>00004E=AR/Z@000900001P00000080o0000P0000800080o
0000P000080E@0d0400000@0000<00008@0000P0001R000030000040000T000090000000P3h00000
00000000P3h0000000000080001O0000>0000040000h0000000003P000000000008104d100000000
0000000000000000000002D0000<00000@0002D0000<00001@00P5L0000T0000>A@007H:002@5000
l@d00080002BDHHZTU4G=bD0000<00001`00P2D0000<00000000P2@0000T00000020@00000000000
0020@000000000000P0002P0000<00000@000280000<0000ooooodH0000L0000400004E=AR/4@000
3000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000ka8009`=003I5@00
l0d0000000160000A00003P00015CDH[:T0002@0000H00000020?`00080000200020?`0008000020
5D0?0100000400003P00024000080000HP0000`000010000900002@00000080n000000000000080n
0000000000020000G`0003P000010000>0000000000h0000000000020@1=0@000000000000000000
00000000000U000030000040000U0000300000D0081G000090000>hB002K3@00fQD00?4=00020000
ID`G=k]F5cLU0000300000L0080U000030000000080T000090000000P400000000000000P4000000
00000080000X000030000040000R000030000?oooom60000700001000015CDH[140000`000000000
AP0001@000080000AdA9@`<000160000:00001`00017A4U30P0004hC000Z3P00NQD007h>00000000
AP0004@0000h0000ADe6:bY0000T000060000000P3l000200000P000P3l000200000P1E04@0@0000
10000100000Q000020000680000<00000@0002@0000T00000020?P00000000000020?P0000000000
0P0005l0000h00000@0003P000000000>000000000000P40C@400000000000000000000000000000
9@0000`0000100009@0000`000050020E`0002@0001=4`00:0h007/E001n3P000P000>1=CCToEDdi
9@0000`0000700209@0000`000000020900002@00000081000000000000008100000000000020000
:00000`0000100008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000
200004M4BD<30000AP0002P0000L0000AdA9@`80002/4`00]`h001dE000<3`00000004H000140000
>00004E=AR/Z@000900001P00000080o0000P0000800080o0000P000080E@1<0400000@0000B0000
8@0000P0001R000030000040000T000090000000P3h0000000000000P3h0000000000080001O0000
>0000040000h0000000003P000000000008104d1000000000000000000000000000002D0000<0000
0@0002D0000<00001@00P5L0000T0000Za<00;H>000M5@0030l00080001GCh@kb5>4>bD0000<0000
1`00P2D0000<00000000P2@0000T00000020@000000000000020@000000000000P0002P0000<0000
0@000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U3
0`0004H0000X0000700004M4BD<20000118007P:002n5000c0X0000000160000A00003P00015CDH[
:T0002@0000H00000020?`00080000200020?`00080000205D0E0100000400005000024000080000
HP0000`000010000900002@00000080n000000000000080n0000000000020000G`0003P000010000
>0000000000h0000000000020@1=0@00000000000000000000000000000U000030000040000U0000
300000D0081G0000900000<B001f2P00_Q@00<d:00020000]dR6:TeBQRXU0000300000L0080U0000
30000000080T000090000000P400000000000000P400000000000080000X000030000040000R0000
30000?oooom60000700001000015CDH[140000`000000000AP0001@000080000AdA9@`<000160000
:00001`00017A4U30P000=D5003G1000F1800;@;00000000AP0005P0001<0000ADe6:bY0000T0000
60000000P3l000200000P000P3l000200000P0Y0080T000060000?ooool10000ENfoA00XX4Cmjd95
E1gAA2P0000<00000P00024000080000HP0000`000010000900002@00000080n000000000000080n
00000000000200009`0001P00002000000000?ooo`0000009@0000`0000200009@0000`000080020
EP000300003o1@0000D002hB002:2`001@000?`G0aCl5bL^]dPW;[M80aCl5`<D9@0000`000070020
9@0000`000000020900002@00000081000000000000008100000000000020000AP000200000D0000
ADe6:aE05`0@0000100001H0000j0000300000P0000T000090000000P3h0000000000000P3h00000
00000080001O0000>0000040000h0000000003P000000000020104d1000000000000000000000000
000002D0000<00000@0002D0000<00001@00P5H0000/0000ZP@00:/300234`00g``000@0003l5`<D
o1LW;[M89bjgB0<D9@0000`0000700209@0000`000000020900002@0000008100000000000000810
0000000000020000:00000`000010000>P0000`0000:00008P0000`0003oooooAP0001`0000@0000
ADe6:`A0000<0000000004H0000D0000200004M4BD<30000DP00070100010000Z?goo`0000000000
000009010000000004000440LP1Y0640K0000000000000000@000000003I2`000000000000000000
0000042h?`0200000@0000@00000000000000000002@0@0000000838?`0DD^H`:;Lo012m?`0T^1<0
0@000;c;?`020000K;PC0=mBiS000000_</o0835?`000000G0_a<0`0002boooo2`000835?`000000
7Z[V<<00002Pe3l00P000000000000002`000000001@bSl0OQ3a<080003oooooF3h4<01SEC1Qe04`
3;hC0000003P/3l0@a<:<0T8?`0923l0VA<:<780000003l02`000835?`000000[;PC0835?`0X0000
2`000;;ooon]3o4`P<Do00/00008^A<0n;PC060;0008^cl0I7H02000000U000030000040000F0000
300001P0000B000030000040000H000030000000009D0000E00006H6001b1@0030L000l800010000
OH>7@8f5Qd1V1P00T@L00040001<00000000000000000000oooooooooom@0000B@2i4JL0000F0000
30000000000U0000300000h0080X000030000040001B0000L0400040002XoOoo0000000000000000
T04000000000@000@@1b06T0H@1/0000000000000001000000000=T;000000000000000000000000
@;Po00800001000010000000?`000000G0_a<0`0002boooo2`000835?`0000007Z[V<<00002Pe3l0
0P000000000/^1<000000<P5TG`8EB80n;PC0545TGa81aD0K@FAO94P2^h@EB8045DR0000003P/3l0
@a<:<0T8?`0923l0VA<:<780000003l000000835?`000000[;PC0835?`1H?P@`06=E<67D0C0<_Q<0
0000082a?`08^A<08000060;0008^cl0I7H02000000;0000P<Do0000002/^1<0f;PC00005@1DH_H:
9@0001PA8P0000X0614R0>bh0@040000?;PC0<hT8B9TMP08000002D0000<00000@0001H0000<0000
60000180000<00000@0001P0000<000000000U@0001D00003@L00785003D1`003`P00040001mPhM0
SHF7@0d7002A1`000@0004`00000000000000000003ooooooooooe00000]0=UHb00001H0000<0000
000002D0000<00003P00P2P0000<00000@000580001`0@000@000:Smool0000000000000002@0@00
0000001000110780J@1Q06`0000000000000004000000000f@/0000000000000000000000010^3l0
0P00004000040000000C0545TGa81aD0K@FAO94P2^h@EB8045DR0000003P/3l0@a<:<0T8?`0923l0
VA<:<2bh4`000000b0FAO0QE8P3h^1<0D@FAO4P75@1]1I5lTB0:ka1E8P0@EB800000082a?`08^A<0
8000060;0008^cl0I7H0200000000000P<Do0000002/^1<0f;PC05Pn1300HeD`HM@1<0bn4`000000
8;8o0>bh0@0P0000?;PC0<hT8B9TMP08000000/00020aCl000000:bh4`3H^1<0000E06aTmPXU0000
614R00002P0H4B80k;P100@0000l^1<0cR@Q8VAf00P000009@0000`0000100005P0000`0000H0000
4P0000`000010000600000`000000002E00008P0003E1`00LPD007dA000?20000@0007f3Qd2=QHM0
e@L00947000:0000C00000000000000000000?ooooooooooH00006<0K`1^07@0LP1_06`0K01U0780
;04004d1001>0@00Y`000<L0001>0@00Q@0008D0001=0@00b00001H0000<0000000002D0000<0000
3P00P2P0000<00000@0004H0000X0000700004M4BD<200008@/007h1001?300010D0000000160000
A00003P00015CDH[:T0002@0000H00000020?`00080000200020?`00080000205D0I010000040000
600002P0000<00000P00024000080000HP0000`000010000900002@00000000n000000000000000n
0000000000020000G`0003P000020000>0000000000h00000000000B0@0800000000000000000000
00000000000U000030000080000W0000600000400000000000000000000U000030000040000C0000
30000080001K0000C00003T;002E0@00=P`00>/4000200002@0000D000040000Q5jg38AN?b3dG3lP
m5bg38AN]`bTHGLO_5e79mAIManTHGLO4`0000`0000100009@0000`0000000209@0000`000070020
900002@00000001100000000000000110000000000020000:00000`0000200008P0000`0003ooooo
AP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0003@0000X0000
ADe6:bY0000T000060000000P3l000200000P000P3l000200000P24000080000HP0000`000010000
C00006@0000Z0P00P000004F000e3`00:P800800003H4`00]Ph002T0ZP00000000000000P3l00000
00000000P3l000000000000000000000000000000000000000000280000<0000ooooodH0000L0000
400004E=AR/2@00030000000000>000050000000000@00005000
\>"], "Text",
 ImageSize->{174.813, 121.438},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Component equations", "Subsection",
 PageWidth->WindowWidth],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Electric\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Icontroller\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "brief", "=", 
   "\"\<This is an imaginary analog component that represents a PWM current \
controller.\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5137112151875*^9, 3.513711217109375*^9}, {
   3.51378596903125*^9, 3.513785980671875*^9}, 3.515394539753217*^9, {
   3.515775693875*^9, 3.5157757050625*^9}, {3.517048046727305*^9, 
   3.51704806093043*^9}, {3.51915204953125*^9, 3.51915205165625*^9}, {
   3.5719303425810804`*^9, 3.5719303439070826`*^9}, 3.5757729461512766`*^9, 
   3.5757731277242312`*^9, {3.6058569445515037`*^9, 3.6058569515305033`*^9}}],

Cell["iref=.;", "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6058569445525036`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"resist", "=."}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5757735448861265`*^9, 3.575773548286933*^9}, 
   3.6058569445525036`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "resist", ",", ".01", ",", "double", ",", "\"\<ohm\>\"", ",", 
       "\"\<loss resistans (at 1)\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wf", ",", "10.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<controller break frequency\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "umin", ",", "1", ",", "double", ",", "\"\<V\>\"", ",", 
       "\"\<minimum voltage difference\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "imax", ",", "10000.", ",", "double", ",", "\"\<A\>\"", ",", 
       "\"\<i max limit\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "imin", ",", "0.01", ",", "double", ",", "\"\<A\>\"", ",", 
       "\"\<i min limit\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "umax", ",", "1000.", ",", "double", ",", "\"\<V\>\"", ",", 
       "\"\<u max limit\>\""}], "}"}]}], "\[IndentingNewLine]", "\t\t\t", 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.51704743811793*^9, 3.51704748427418*^9}, {
   3.517048343845498*^9, 3.5170483455018435`*^9}, {3.517048492338375*^9, 
   3.5170485144639416`*^9}, {3.517051632113016*^9, 3.5170516337849016`*^9}, {
   3.517052559747033*^9, 3.5170525602939186`*^9}, {3.5191490896875*^9, 
   3.51914910778125*^9}, {3.519149305921875*^9, 3.51914931075*^9}, 
   3.6058569583025036`*^9}],

Cell[BoxData[
 RowBox[{"cond", "=."}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{3.6058569583025036`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"ElectricQnode", "[", 
      RowBox[{"el1", ",", "0.", ",", "\"\<Uppstream port\>\""}], "]"}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"ElectricQnode", "[", 
      RowBox[{"el2", ",", "0.", ",", "\"\<Downstream port\>\""}], "]"}]}], 
    "\[IndentingNewLine]", "\t\t\t", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5170500803941193`*^9, 3.5170500958947144`*^9}, {
   3.517051761535719*^9, 3.517051763379481*^9}, 3.5757735584425507`*^9, 
   3.5757736263762817`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"inputVariables", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "iref", ",", "0.", ",", "double", ",", "\"\<A/V\>\"", ",", 
       "\"\<Conductivity (1/resistance)\>\""}], "}"}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5757735685669684`*^9, 3.575773590765807*^9}, {
  3.5757743546296935`*^9, 3.575774378560136*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"uc", "=", 
   RowBox[{"uel1", "+", 
    RowBox[{"resist", " ", "iel1"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.5371660944689965`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cond1", "=", 
  FractionBox[
   RowBox[{"iref", "/", 
    RowBox[{"limit", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"uel1", "-", "uel2"}], ")"}], ",", "umin", ",", "umax"}], 
     "]"}]}], 
   RowBox[{
    FractionBox["s", "wf"], "+", "1"}]]}]], "Input",
 CellChangeTimes->{{3.5170524175880537`*^9, 3.517052423963176*^9}, {
   3.51914906065625*^9, 3.5191490674375*^9}, 3.5370275318125*^9, 
   3.5371660825627465`*^9, 3.5371661822814965`*^9}],

Cell[BoxData[
 FractionBox["iref", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["s", "wf"]}], ")"}], " ", 
   RowBox[{"limit", "[", 
    RowBox[{
     RowBox[{"uel1", "-", "uel2"}], ",", "umin", ",", "umax"}], 
    "]"}]}]]], "Output",
 CellChangeTimes->{
  3.5371661867189965`*^9, 3.53738713915625*^9, 3.575773037877038*^9, 
   3.575773140661854*^9, 3.5757731718619084`*^9, 3.57577324608726*^9, 
   3.5757733788839197`*^9, 3.575773437813836*^9, {3.575773607052236*^9, 
   3.5757736318518915`*^9}, 3.5757739646983523`*^9, 3.5757742579936743`*^9, 
   3.5757743040339804`*^9, 3.5757743841605453`*^9, 3.5757744583443356`*^9, 
   3.575774532679165*^9, 3.575774596180381*^9, 3.5757746363450675`*^9, 
   3.5757747247976627`*^9, 3.575779426003521*^9, 3.575785968529523*^9, 
   3.5757864545158453`*^9, 3.575786853971217*^9, 3.575817588739931*^9, 
   3.578816692896367*^9, 3.581406010904448*^9, 3.5814061612990503`*^9, 
   3.5814062949116926`*^9, 3.6031910272143784`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"iel1", "==", 
      RowBox[{"cond1", " ", 
       RowBox[{"(", 
        RowBox[{"uel2", "-", "uel1"}], ")"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"iel1", " ", 
        RowBox[{"limit", "[", 
         RowBox[{"uel1", ",", "umin", ",", "umax"}], "]"}]}], " ", "+", 
       RowBox[{"resist", " ", 
        RowBox[{"iel1", "^", "2"}]}], "+", 
       RowBox[{"iel2", " ", 
        RowBox[{"limit", "[", 
         RowBox[{"uel2", ",", "umin", ",", "umax"}], "]"}]}]}], "\[Equal]", 
      "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5170524293851547`*^9, 3.5170524347446327`*^9}, 
   3.537026808171875*^9, 3.537027501421875*^9, {3.537034161703125*^9, 
   3.537034165375*^9}, 3.5370697195685368`*^9, {3.5719303710511303`*^9, 
   3.571930391814767*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemBoundaryEquations", " ", "=", " ", 
   RowBox[{"{", "\n", "\t", 
    RowBox[{
     RowBox[{"uel1", " ", "==", " ", 
      RowBox[{"cel1", "+", 
       RowBox[{"Zcel1", " ", "iel1"}]}]}], ",", "\n", "\t", 
     RowBox[{"uel2", " ", "==", " ", 
      RowBox[{"cel2", "+", 
       RowBox[{"Zcel2", " ", "iel2"}]}]}]}], "\n", "         \t\t\t", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.537034178984375*^9, 3.537034179*^9}, {
  3.571930404060788*^9, 3.571930423202022*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"iel1", ",", "iel2", ",", "uel1", ",", "uel2"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5170484426011863`*^9, 3.517048460336583*^9}}],

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{707, 817},
WindowMargins->{{Automatic, 325}, {47, Automatic}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 55, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[659, 27, 68, 1, 36, "Subsection"],
Cell[730, 30, 267, 5, 47, "Text"],
Cell[1000, 37, 22797, 284, 136, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23834, 326, 66, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[23925, 331, 1446, 33, 252, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25374, 366, 121, 2, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25498, 370, 217, 5, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25752, 380, 1650, 38, 166, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[27405, 420, 145, 3, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Closed]],
Cell[27565, 426, 613, 13, 86, "Input"],
Cell[28181, 441, 464, 11, 92, "Input"],
Cell[28648, 454, 172, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[28845, 463, 479, 13, 54, "Input"],
Cell[29327, 478, 986, 20, 57, "Output"]
}, Open  ]],
Cell[30328, 501, 949, 23, 92, "Input"],
Cell[31280, 526, 519, 13, 92, "Input"],
Cell[31802, 541, 243, 6, 31, "Input"],
Cell[32048, 549, 63, 1, 31, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

